home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex / packages / mfnfss / dccrstd.tex < prev    next >
Text File  |  1994-12-17  |  9KB  |  302 lines
  1. % \iffalse meta-comment
  2. %
  3. % Copyright 1994 the LaTeX3 project and the individual authors.
  4. % All rights reserved. For further copyright information see the file
  5. % legal.txt, and any other copyright indicated in this file.
  6. % 
  7. % This file is part of the LaTeX2e system.
  8. % ----------------------------------------
  9. % 
  10. %  This system is distributed in the hope that it will be useful,
  11. %  but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. %  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13. % 
  14. % 
  15. % IMPORTANT NOTICE:
  16. % 
  17. % For error reports in case of UNCHANGED versions see bugs.txt.
  18. % 
  19. % Please do not request updates from us directly.  Distribution is
  20. % done through Mail-Servers and TeX organizations.
  21. % 
  22. % You are not allowed to change this file.
  23. % 
  24. % You are allowed to distribute this file under the condition that
  25. % it is distributed together with all files mentioned in manifest.txt.
  26. % 
  27. % If you receive only some of these files from someone, complain!
  28. % 
  29. % You are NOT ALLOWED to distribute this file alone.  You are NOT
  30. % ALLOWED to take money for the distribution or use of either this
  31. % file or a changed version, except for a nominal charge for copying
  32. % etc.
  33. % \fi
  34. % This files generates MF source files for producing Concrete Roman
  35. % fonts with Cork encoding. You need to have the DC/EC source
  36. % distribution which is *not* part of NFSS2 but can be found on the
  37. % usual archives or can be ordered from TeX organizations.
  38. %
  39. % This file is a copy of one of the DC distribution files with the
  40. % table entries changed so that it will produce Concrete Roman instead
  41. % of Computer Modern fonts. As an alternative you can copy the first
  42. % line which is flagged with `FMi' and place it in the table of the
  43. % file {\tt dcstdedt.tex} in order to produce all Metafont sources from
  44. % a single file.
  45. %
  46. % Usage:
  47. %
  48. % Run this file through TeX. This will generate a number of Metafont
  49. % source files for the Concrete Roman fonts. This will also generate a
  50. % single page of output showing a table of the fonts generated. (This
  51. % is much more interesting if you combined the table entry from this
  52. % file with the standard table entries for the Computer Modern fonts.)
  53. %
  54. % Then produce the fonts by running Metafont on the generated fonts.
  55. % For this you can use the batch file {\tt mfccr.bat} which was
  56. % generated by the previous step. This batch file is set up to run
  57. % under DOS and you may have to edit it first.
  58. %
  59. % The rest of this this file, except for the lines flagged with `FMi'
  60. % correspond to the original one from Norbert Schwarz.
  61. %
  62. % --------------------------------------------------------
  63. %
  64. %
  65. % Generating MF-files for DC/EC fonts            Version 1.1 / 22.3.1992
  66. %
  67. %  Running TeX with this file as an input results in a lot of
  68. %  Metafont font driver files (dcr5.mf, dcr6.mf, ..). The files
  69. %  which should be generated are marked in the following macro
  70. %  \FontsToBeGenerated. For each font there has to be an entry
  71. %  with the pt sizes the font should be generate with. Additionally
  72. %  in the heading \tablevalues all used pt sizes have to be mentioned,
  73. %  just to get an fine printout.
  74. %
  75. %  Furthermore there is a batch file which can be customized for the
  76. %  Metafont batch run.
  77. %
  78. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  79. %
  80. %  please change only here:
  81. %
  82. \long\def\FontsToBeGenerated{
  83.  
  84.      \tablevalues       ( 5 6 7 8 9 10 10.95[11] 12 14.4[14] 17.28[17] )
  85.  
  86.      % following line changed by FMi
  87.      \makefont dccr     ( 5 6 7 8 9 10 10.95[11] 12 14.4[14] 17.28[17] )
  88. }
  89. % If a font with a fraction, e.g. "7.5", should be generated
  90. % and the file name is not allowed to contain a period, an
  91. % optional file name part can be specified.
  92. %
  93. %      7.5[7h]
  94. %
  95. %      result in - may be - "dcr7h.mf" and an entry of "gensize:=7.5;"
  96. %      (The new value has to be specified in the \tablevalues-line too!
  97. %
  98. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  99. %
  100. %  The Batch file entries   ( #1 contains the fontname )
  101. %
  102. %   should be of the following form:
  103. %
  104. %    \def\BatchOutput{\BatchLine{...}%
  105. %                          ...
  106. %                     \BatchLine{...}}
  107. %
  108. %
  109. %  preset value, change \BatchOutput if you like ....
  110. %
  111. \def\BatchOutput#1{
  112.      \BatchLine{mf "&plain \string\mode:=oce; input #1"}
  113. }
  114. %
  115. %   File naming conventions:
  116. %
  117. \def\BatchFileName{mfccr.bat}      % FMi
  118. %
  119. %
  120. \def\MetafontFileExtension{.mf}
  121. %
  122. \def\modedef{} % e.g.  \def\modedef{\string\mode:=hplaser;}
  123. %
  124. %
  125. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  126. %
  127. % please  n o  changes from here, thanks !
  128. %
  129. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  130. %
  131. %
  132. % (Avoiding inspecting the macros (sigh!)
  133. %
  134. %   Norbert Schwarz, Dezember 1990
  135. %
  136. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  137. \magnification\magstep1
  138. \overfullrule=0pt
  139. %\tracingonline1
  140. %\tracingcommands=1
  141. %\tracingmacros=1
  142. % some token handling
  143. \let\EA\expandafter
  144. \def\JoinToks#1=(#2+#3){#1=\EA\EA\EA{\EA\the\EA#2\the#3}}
  145. \def\UpToHere{\relax}
  146. \def\IgnoreRest#1#2\UpToHere{#1}
  147. \def\IgnoreFirst#1#2\relax\UpToHere{#2}
  148. \def\First#1{\EA\IgnoreRest\the#1{}\UpToHere}
  149. \def\FirstOf#1{\EA\EA\EA{\EA\IgnoreRest\the#1{}\UpToHere}}
  150. \def\MoveFirst(#1to#2){#2\FirstOf#1}
  151. \def\Rest#1{\EA\IgnoreFirst\the#1\relax\UpToHere}
  152. \def\RestOf#1{\EA\EA\EA{\EA\IgnoreFirst\the#1\relax\UpToHere}}
  153. \def\MoveRest(#1to#2){#2=\RestOf{#1}}
  154. % borrowed from p. 132 in N.Schwarz, Introduction to TeX
  155. % (some advertising ..)
  156.  
  157. \newtoks\Basis
  158. \newtoks\Table
  159. \def\storetoks#1{\toks0={#1}\JoinToks\Table=(\Table+\toks0)}
  160. \Table={}
  161. %
  162. \newwrite \batchoutput
  163. \newwrite \fontoutput
  164. \def\today{\ifcase\month\or
  165.     January\or Februar\or March\or April\or May\or June\or
  166.     July\or August\or September\or October\or November\or December\fi,
  167.     \number\day,
  168.     \space\number\year}
  169.  
  170. \def\BatchLine#1{\immediate\write\batchoutput{#1}}
  171. \immediate\openout\batchoutput=\BatchFileName
  172.  
  173. \def\empty{}
  174. \def\minus{-}
  175. \def\blank{ }
  176. \def\singlefont#1 {%
  177.         \def\fontsize{#1}%\message{<#1>}%
  178.         \ifx\fontsize\minus\let\next\relax
  179.         \else
  180.             \ifx\fontsize\empty\let\next\singlefont
  181.             \else
  182.                 \ifx\fontsize\blank\let\next\singlefont
  183.                 \else
  184.                     \let\next\dofont
  185.           \fi\fi\fi
  186.         \next}
  187.  
  188. \def\doentry{\MoveFirst(\Workbase to\Htok)%
  189.              \Workbase=\RestOf\Workbase
  190.              \edef\doou{\the\Htok}%
  191.              \ifx\doou\fontsize
  192.                  \def\dooU{\storetoks{\hfill $\bullet$\hfill&}}%
  193.                  \let\weiter\dooU
  194.              \else
  195.                  \def\weiter{\storetoks{~\hfill&}\doentry}%
  196.              \fi\weiter}
  197.  
  198.  
  199. \def\singletablevalue#1 {%
  200.         \def\fontsize{#1}%
  201.         \ifx\fontsize\blank\let\next\singletablevalue
  202.         \else
  203.                 \ifx\minus\fontsize\let\next\relax
  204.                 \else\let\next\dotablevalue\fi
  205.         \fi
  206.         \next}
  207.  
  208. \newtoks\Htok
  209. \newtoks\Workbase
  210. \def\dotablevalue{\edef\dooo{\Htok={{\fontsize}}}%
  211.         \dooo
  212.         \EA\storetoks\EA{\fontsize&}%
  213.         \JoinToks\Basis=(\Basis+\Htok)\singletablevalue}
  214.  
  215. \def\tablevalues(#1){\storetoks{\bf Fonts &}\singletablevalue#1 -
  216.         \storetoks{\cr}}
  217.  
  218. \def\makefont #1 (#2){\JoinToks\Workbase=(\Basis+\Basis)%
  219.         \myc=0\immediate\write16{}%
  220.         \edef\fontnamebody{#1}%
  221.         \def\dostoretoks{\storetoks{#1 &}}\dostoretoks
  222.          \singlefont #2 - \storetoks{\cr}}
  223.  
  224. \def~{\ifdim\dimen0>0pt
  225.         \message{\number\dimen0}%
  226.         \global\advance\dimen0 by -5.25pt
  227.         \message{ }\fi}
  228.  
  229. \newcount\myc
  230. \def\extraspaces{\setbox0=\hbox{\tt\fontname}%
  231. \dimen0=78.75pt
  232. \advance\dimen0 by -\wd0\relax
  233.         \advance\myc by 1
  234.         \ifnum \myc=5
  235.         \immediate\write16{}%
  236.         \myc=0 \fi}
  237.  
  238.  
  239. \def\dofonttest#1[#2]#3\nothing{%
  240. \def\fontsize{#2}%
  241. \ifx\fontsize\empty
  242.         \def\fontsizename{#1}%
  243.         \def\fontsize{#1}%
  244. \else
  245.         \def\fontsize{#1}%
  246.         \def\fontsizename{#2}%
  247. \fi}
  248. \def\dofont{\doentry\expandafter\dofonttest\fontsize[]\nothing\Dofont}
  249.  
  250. {\catcode`\%=11
  251. \catcode`\|=14
  252. \gdef\Dofont{|
  253.   \edef\fontname{\fontnamebody\fontsizename\MetafontFileExtension}|
  254.   \edef\dowrite{|
  255.   \immediate\openout \fontoutput = \fontname|
  256.   \immediate\write
  257.      \fontoutput {% This is \fontname\space
  258.      in text format as of \today}|
  259.   \immediate\write \fontoutput {if unknown dxbase: input dxbase fi;}|
  260.   \immediate\write \fontoutput {}|
  261.   \immediate\write \fontoutput {\modedef}|
  262.   \immediate\write \fontoutput {gensize:=\fontsize;}|
  263.   \immediate\write \fontoutput {generate \fontnamebody}|
  264.   \immediate\closeout \fontoutput|
  265.   \BatchOutput{\fontnamebody\fontsizename}
  266.   \message{\fontname\blank}|\extraspaces~~~~~~~~~~~|
  267. }\dowrite\singlefont}}
  268. \immediate\write16{generated mf-files:}
  269. \immediate\write16{-------------------}
  270.  
  271. \nopagenumbers
  272.  
  273. \def\minimumbox#1{\setbox0=\hbox{#1}%
  274.         \ifdim\wd0>15pt \box0\else \hbox to 15pt{\hfil
  275.         \box0\hfil}\fi}
  276. \storetoks{\hrule
  277. \medskip
  278. \centerline{Overview DC/EC - Standard font set}
  279. \medskip
  280. \hrule
  281. \bigskip
  282. \noindent The following table describes the generated {*.mf} files which
  283. are needed for the setup of the standard DC/EC-font set.
  284. \bigskip
  285. \bigskip
  286. $$\vbox\bgroup\nointerlineskip\halign\bgroup#\hfil\quad&&\strut
  287.         \quad\minimumbox{#}\cr
  288. \noalign{\medskip}}
  289.  
  290.  
  291.  
  292. %\tracingonline1
  293. %\tracingmacros2
  294. %\tracingcommands1
  295.  
  296. \FontsToBeGenerated
  297.  
  298. \storetoks{\egroup\egroup$$}
  299.  
  300. \the\Table
  301. \end
  302.